home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / ITEDO IsoDraw-I / ITEDO IsoDraw Demo PPC I / ITEDO IsoDraw Demo PPC I.rsrc / STR#_502.txt < prev    next >
Encoding:
Text File  |  1994-01-18  |  2.9 KB  |  133 lines

  1. %%BeginProcSet:Adobe_Illustrator_1.1 0 0
  2. % Copyright (C) 1987-1990 Adobe Systems Incorporated.
  3. % All Rights Reserved.
  4.  
  5.  
  6. % Adobe Illustrator is a trademark of Adobe Systems Incorporated.
  7. /Adobe_Illustrator_1.1 dup 100 dict def load begin
  8.  
  9.  
  10. /Version 0 def
  11. /Revision 0 def
  12. /bdef {bind def} bind def
  13. /ldef {load def} bdef
  14. /xdef {exch def} bdef
  15.  
  16.  
  17. /_K {3 index add neg dup 0 lt {pop 0} if 3 1 roll} bdef
  18. /_k /setcmybcolor where 
  19.  
  20.  
  21. {/setcmybcolor get} {{1 sub 4 1 roll _K _K _K setrgbcolor pop} bind} ifelse def
  22.  
  23.  
  24. /g {/_b xdef /p {_b setgray} def} bdef
  25. /G {/_B xdef /P {_B setgray} def} bdef
  26.  
  27.  
  28. /k {/_b xdef /_y xdef /_m xdef /_c xdef /p {_c _m _y _b _k} def} bdef
  29. /K {/_B xdef /_Y xdef /_M xdef /_C xdef /P {_C _M _Y _B _k} def} bdef
  30.  
  31.  
  32. /d /setdash ldef
  33. /_i currentflat def
  34. /i {dup 0 eq {pop _i} if setflat} bdef
  35. /j /setlinejoin ldef
  36.  
  37.  
  38. /J /setlinecap ldef
  39. /M /setmiterlimit ldef
  40. /w /setlinewidth ldef
  41. /_R {.25 sub round .25 add} bdef
  42.  
  43.  
  44. /_r {transform _R exch _R exch itransform} bdef
  45. /c {_r curveto} bdef
  46. /C /c ldef
  47.  
  48.  
  49. /v {currentpoint 6 2 roll _r curveto} bdef
  50. /V /v ldef
  51. /y {_r 2 copy curveto} bdef
  52. /Y /y ldef
  53.  
  54.  
  55. /l {_r lineto} bdef
  56. /L /l ldef
  57. /m {_r moveto} bdef
  58. /_e [] def
  59. /_E {_e length 0 ne {gsave 0 g 0 G 0 i 0 J 0 j 1 w 10 M [] 0 d
  60.  
  61.  
  62. /Courier 20 0 0 1 z [0.966 0.259 -0.259 0.966
  63. _e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div] e _f t T grestore} if} bdef
  64.  
  65.  
  66. /_fill {{fill} stopped
  67. {/_e [pathbbox] def /_f (ERROR: can't fill, increase flatness) def n _E} if} bdef
  68.  
  69.  
  70. /_stroke {{stroke} stopped
  71. {/_e [pathbbox] def /_f (ERROR: can't stroke, increase flatness) def n _E} if} bdef
  72.  
  73.  
  74. /n /newpath ldef
  75. /N /n ldef
  76. /F {p _fill} bdef
  77. /f {closepath F} bdef
  78. /S {P _stroke} bdef
  79.  
  80.  
  81. /s {closepath S} bdef
  82. /B {gsave F grestore S} bdef
  83. /b {closepath B} bdef
  84. /_s /ashow ldef
  85.  
  86.  
  87. /_S {(?) exch {2 copy 0 exch put pop dup false charpath currentpoint _g setmatrix
  88.  
  89.  
  90. _stroke _G setmatrix moveto 3 copy pop rmoveto} forall pop pop pop n} bdef
  91. /_A {_a moveto _t exch 0 exch} bdef
  92.  
  93.  
  94. /_L {0 _l neg translate _G currentmatrix pop} bdef
  95. /_w {dup stringwidth exch 3 -1 roll length 1 sub _t mul add exch} bdef
  96.  
  97.  
  98. /_z [{0 0} bind {dup _w exch neg 2 div exch neg 2 div} bind {dup _w exch neg exch neg} bind] def
  99.  
  100.  
  101. /z {_z exch get /_a xdef /_t xdef /_l xdef exch findfont exch scalefont setfont} bdef
  102.  
  103.  
  104. /_g matrix def
  105. /_G matrix def
  106. /_D {_g currentmatrix pop gsave concat _G currentmatrix pop} bdef
  107.  
  108.  
  109. /e {_D p /t {_A _s _L} def} bdef
  110. /r {_D P /t {_A _S _L} def} bdef
  111. /a {_D /t {dup p _A _s P _A _S _L} def} bdef
  112.  
  113.  
  114. /o {_D /t {pop _L} def} bdef
  115. /T {grestore} bdef
  116. /u {} bdef
  117. /U {} bdef
  118.  
  119.  
  120. /Z {findfont begin currentdict dup length dict begin
  121. {1 index /FID ne {def} {pop pop} ifelse} forall /FontName exch def dup length 0 ne
  122.  
  123.  
  124. {/Encoding Encoding 256 array copy def 0 exch {dup type /nametype eq
  125. {Encoding 2 index 2 index put pop 1 add} {exch pop} ifelse} forall} if pop
  126.  
  127.  
  128. currentdict dup end end /FontName get exch definefont pop} bdef
  129. end
  130. %%EndProcSet
  131.  
  132.  
  133.